home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -in_the_mag- / reader_requests / asciitable / install < prev    next >
Text File  |  1999-11-29  |  2KB  |  124 lines
  1. ;
  2. ; Installer-Script for ASCIITable 2.00
  3. ;
  4. ;    Author    : FLORAC Roland
  5. ;    Version : 1.0
  6. ;    Date    : 17.11.1999
  7. ;
  8. ;    $VER: Install 1.0 (17.11.1999)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14. (if (= @language "français")
  15. (
  16. (set #askdir1 (cat "Dans quel tiroir voulez-vous installer ASCIITable ?\n"))
  17. (set #askwbstartup (cat "Voulez-vous que le programme soit copié dans votre tiroir WBStartup ?"))
  18. (set #confirmt (cat "Que voulez-vous installer ?"))
  19. (set #installanguage (cat "Quel est le langage à installer ?"))
  20. (set #copying ("Copie des fichiers..."))
  21. (set #Yes "Oui")
  22. (Set #No "Non")
  23. )
  24.  
  25. (
  26. (set #askdir1 (cat "In what drawer do-you want to install ASCIITable ?\n"))
  27. (set #askwbstartup (cat "Shall I copy the Program to the WBStartup drawer ?"))
  28. (set #confirmt (cat "What should I install?"))
  29. (set #installanguage (cat "Which languages should I install?"))
  30. (set #copying ("Copying files..."))
  31. (set #Yes "Yes")
  32. (Set #No "No")
  33. ))
  34.  
  35. ;**************************************************
  36.  
  37. (complete 0)
  38.  
  39. ;**************************************************
  40.  
  41. (set choice
  42.     (askbool
  43.         (prompt #askwbstartup)
  44.         (help @askoptions-help)
  45.         (choices #Yes #No)
  46.         (default 1)
  47.     )
  48. )
  49.  
  50. (if (= 1 choice)
  51. (
  52.  (copyfiles
  53.     (source "")
  54.     (dest "SYS:WBStartup")
  55.     (pattern "(ASCIITable#?)")
  56.     (prompt #copying)
  57.     (files)
  58.  )
  59. )
  60. (
  61.     (set #name
  62.     (askdir
  63.         (prompt #askdir1)
  64.         (help @askdir-help)
  65.         (default "SYS:Tools/Commodities")
  66.     )
  67.     )
  68.  
  69.     (copyfiles
  70.     (source "")
  71.     (dest #name)
  72.     (pattern "ASCIITable#?")
  73.     (prompt #confirmt)
  74.     (help @confirm-help)
  75.     (confirm)
  76.     )
  77. ))
  78.  
  79. (complete 50)
  80.  
  81. ;**************************************************
  82.  
  83. (if (= @language "français")
  84.     (set #deflang 1) (set #deflang 2)
  85. )
  86.  
  87. (if (exists "SYS:locale/catalogs")
  88.  
  89.     (set #lang (askoptions
  90.         (prompt #installanguage)
  91.         (help @askoptions-help)
  92.         (choices "Français" "English")
  93.         (default #deflang))
  94.     )
  95. )
  96.  
  97. (set #n 0)
  98.  
  99. (while
  100.     (set #langage
  101.         (select #n
  102.             "Français"
  103.             ""
  104.         )
  105.     )
  106.     (
  107.      (if (IN #lang #n)
  108.         (
  109.          (set #catalog (tackon "Catalogs" (tackon #langage "ASCIITable.catalog")))
  110.          (set #destination (tackon "Locale:Catalogs/" #langage))
  111.          (copyfiles
  112.             (source #catalog)
  113.             (dest #destination)
  114.             (prompt #confirmt)
  115.             (help @confirm-help)
  116.             (confirm))
  117.         )
  118.      )
  119.      (set #n (+ #n 1))
  120.     )
  121. )
  122.  
  123. (complete 100)
  124.